;; Test the new membership testing procedures
(display "Testing memq procedure:")
(newline)
(display (memq 'a '(a b c))) ; Should output (a b c)
(newline)
(display (memq 'b '(a b c))) ; Should output (b c)
(newline)
(display (memq 'd '(a b c))) ; Should output #f
(newline)

(display "Testing memv procedure:")
(newline)
(display (memv 1 '(1 2 3))) ; Should output (1 2 3)
(newline)
(display (memv 2 '(1 2 3))) ; Should output (2 3)
(newline)
(display (memv 4 '(1 2 3))) ; Should output #f
(newline)

(display "Testing member procedure:")
(newline)
(display (member 1 '(1 2 3))) ; Should output (1 2 3)
(newline)
(display (member 2 '(1 2 3))) ; Should output (2 3)
(newline)
(display (member 4 '(1 2 3))) ; Should output #f
(newline)

(exit)